perm filename QQ[CRE,BGB] blob
sn#041556 filedate 1973-05-16 generic text, type T, neo UTF8
00300 (DEFPROP INCRE
00400 (LAMBDA(Q)
00500 (PROG NIL
00600 (MKBINPUT)
00700 (BINMKF Q)
00800 (SETQ BEGCRE BPORG)
00900 (SETQ ENDCRE (BINPUT BPORG BPEND))
01000 (AND(NULL ENDCRE)
01050 (RETURN (PROG2 (PRINT (QUOTE (CRE FILE NOT FOUND))) NIL)))
01100 (AND (GREATERP ENDCRE BPEND)
01200 (RETURN (PROG2 (PRINT
01250 (QUOTE (CRE FILE BIGGER THAN BINARY PROGRAM SPACE))) NIL)))
01300 (SETQ BPORG ENDCRE)
01400 (RETURN T)))
01500 FEXPR)